home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 November / macformat-030.iso / Shareware City / Developers / FANTASM V3.16 unreg / Beginners guide MS word / F3_EXAMPLE / SOUND_PLAY.S < prev    next >
Encoding:
Text File  |  1995-02-05  |  649 b   |  33 lines  |  [TEXT/R*ch]
  1. *******************************
  2. *SOUND_PLAY.S                  *
  3. *CONTAINS  NECESSARY ROUTINES *
  4. *TO PLAY A SOUND RESOURCE 128 *
  5. *IN THE BACKGROUND.              *
  6. *******************************
  7. LOAD_SOUND:        **GET SOUND RESOURCE
  8.     CLR.L    -(SP)    SPACE FOR HANDLE
  9.     MOVE.L    #"snd ",-(SP)
  10.     MOVE.W    D0,-(SP)    *GET SOUND - RESOURCE NUMBER IN D0
  11.     DC.W    GET1RESOURCE
  12.     MOVE.L    (SP)+,D0    GET HANDLE
  13.     RTS
  14.     
  15. PLAY_SOUND:    
  16.     CLR.W    -(SP)
  17.     PEA        CHAN(A5)
  18.     CLR.W    -(SP)
  19.     CLR.L    -(SP)
  20.     CLR.L    -(SP)    CALL BACK PTR
  21.     DC.W    $A807    SNDNEWCHANNEL
  22.     MOVE.W    (SP)+,D0
  23.  
  24.     CLR.W    -(SP)
  25.     MOVE.L    CHAN(A5),-(SP)
  26.     MOVE.L    SOUND(A5),-(SP)
  27.     MOVE.B    #-1,-(SP)
  28.     DC.W    $A805
  29.     MOVE.W    (SP)+,D0
  30.     RTS
  31.     GLOBAL    LOAD_SOUND,PLAY_SOUND
  32.     
  33.